*WHAT'S ACROSS THE BORDER?
*JHA, NEUMARK, AND RODRIGUEZ-LOPEZ

include directories.do

import excel "`outfigdir'`s'figure4_tabA4.xlsx", sheet("Sheet1")

gen time=_n
ren A bfe_co
ren B llfe_co
ren C ulfe_co
ren D b_co
ren E ll_co
ren F ul_co
ren G bdlr_co
ren H lldlr_co
ren I uldlr_co
ren J bfe_cz
ren K llfe_cz
ren L ulfe_cz
ren M b_cz
ren N ll_cz
ren O ul_cz
ren P bdlr_cz
ren Q lldlr_cz
ren R uldlr_cz

twoway (line bfe_co time, lc(blue)) (line llfe_co time, lc(blue) lpattern(shortdash)) (line ulfe_co time, lc(blue) lpattern(shortdash)), legend(off)  xtitle("Year") scheme(s1color) xlabel(1 "s-2" 2 "s-1" 3 "s" 4 "s+1" 5 "s+2" 6 "s+3" 7 "s+4") ylabel(-1 -0.8 -0.6 -0.4 -0.2 0 0.2 0.4) yline(0, lc(black)) ytitle("Cumulative minimum-wage effect") title("County-level full sample ")
gr export "`outfigdir'`s'figure4aL.eps", replace

twoway (line b_co time, lc(blue)) (line ll_co time, lc(blue) lpattern(shortdash)) (line ul_co time, lc(blue) lpattern(shortdash)), legend(off)  xtitle("Year") scheme(s1color) xlabel(1 "s-2" 2 "s-1" 3 "s" 4 "s+1" 5 "s+2" 6 "s+3" 7 "s+4") ylabel(-1 -0.8 -0.6 -0.4 -0.2 0 0.2 0.4) yline(0, lc(black)) ytitle("Cumulative minimum-wage effect") title("County-level sample (1,157 pairs)")
gr export "`outfigdir'`s'figure4bL.eps", replace

twoway (line bdlr_co time, lc(blue)) (line lldlr_co time, lc(blue) lpattern(shortdash)) (line uldlr_co time, lc(blue) lpattern(shortdash)), legend(off)  xtitle("Year") scheme(s1color) xlabel(1 "s-2" 2 "s-1" 3 "s" 4 "s+1" 5 "s+2" 6 "s+3" 7 "s+4") ylabel(-1 -0.8 -0.6 -0.4 -0.2 0 0.2 0.4) yline(0, lc(black)) ytitle("Cumulative minimum-wage effect") title("County-level sample (309 pairs)")
gr export "`outfigdir'`s'figure4cL.eps", replace

twoway (line bfe_cz time, lc(red)) (line llfe_cz time, lc(red) lpattern(shortdash)) (line ulfe_cz time, lc(red) lpattern(shortdash)), legend(off)  xtitle("Year") scheme(s1color) xlabel(1 "s-2" 2 "s-1" 3 "s" 4 "s+1" 5 "s+2" 6 "s+3" 7 "s+4") ylabel(-1 -0.8 -0.6 -0.4 -0.2 0 0.2 0.4) yline(0, lc(black)) ytitle("Cumulative minimum-wage effect") title("Commuting zone-state full sample")
gr export "`outfigdir'`s'figure4aR.eps", replace

twoway (line b_cz time, lc(red)) (line ll_cz time, lc(red) lpattern(shortdash)) (line ul_cz time, lc(red) lpattern(shortdash)), legend(off)  xtitle("Year") scheme(s1color) xlabel(1 "s-2" 2 "s-1" 3 "s" 4 "s+1" 5 "s+2" 6 "s+3" 7 "s+4") ylabel(-1 -0.8 -0.6 -0.4 -0.2 0 0.2 0.4) yline(0, lc(black)) ytitle("Cumulative minimum-wage effect") title("Multi-state zones sample (151 pairs)")
gr export "`outfigdir'`s'figure4bR.eps", replace

twoway (line bdlr_cz time, lc(red)) (line lldlr_cz time, lc(red) lpattern(shortdash)) (line uldlr_cz time, lc(red) lpattern(shortdash)), legend(off)  xtitle("Year") scheme(s1color) xlabel(1 "s-2" 2 "s-1" 3 "s" 4 "s+1" 5 "s+2" 6 "s+3" 7 "s+4") ylabel(-1 -0.8 -0.6 -0.4 -0.2 0 0.2 0.4) yline(0, lc(black)) ytitle("Cumulative minimum-wage effect") title("Multi-state zones sample (71 pairs)")
gr export "`outfigdir'`s'figure4cR.eps", replace


